Namespace B1FormList
    Public Class B1FormListEvents
        Inherits SAPBoAddon.B1AddonBase.AddonEvent

        Private _ListFormUID As String
        Private _ListFormType As String
        Private _SelectedDtUID As String
        Private _SelectedDataTable As SAPbouiCOM.DataTable
        Private _FillSelectedField As String
        Private _CloseForm As Boolean = True
        Private _EventType As B1FormListEventType
        Private _ItemKeyColumn As String
        Private _Insert As Boolean = False
        Private _dbDataSource As String
        Private _FillValueType As Object 'FL_FillValueType

        Public Property dbDataSource() As String
            Get
                Return _dbDataSource
            End Get
            Set(ByVal value As String)
                _dbDataSource = value
            End Set
        End Property

        Public Property Insert() As Boolean
            Get
                Return _Insert
            End Get
            Set(ByVal value As Boolean)
                _Insert = value
            End Set
        End Property

        Public Property FatherItemKeyColumn() As String
            Get
                Return _ItemKeyColumn
            End Get
            Set(ByVal value As String)
                _ItemKeyColumn = value
            End Set
        End Property


        Public Overloads Property EventType() As B1FormListEventType
            Get
                Return _EventType
            End Get
            Set(ByVal value As B1FormListEventType)
                _EventType = value
            End Set
        End Property

        Public Property CloseForm() As Boolean
            Get
                Return _CloseForm
            End Get
            Set(ByVal value As Boolean)
                _CloseForm = value
            End Set
        End Property

        Public Property FillSelectedField() As String
            Get
                Return _FillSelectedField
            End Get
            Set(ByVal value As String)
                _FillSelectedField = value
            End Set
        End Property

        Public Property SelectedDtUID() As String
            Get
                Return _SelectedDtUID
            End Get
            Set(ByVal value As String)
                _SelectedDtUID = value
            End Set
        End Property

        Public Property SelectedDataTable() As SAPbouiCOM.DataTable
            Get
                Return _SelectedDataTable
            End Get
            Set(ByVal value As SAPbouiCOM.DataTable)
                _SelectedDataTable = value
            End Set
        End Property

        Public Property ListFormUID() As String
            Get
                Return _ListFormUID
            End Get
            Set(ByVal value As String)
                _ListFormUID = value
            End Set
        End Property

        Public Property ListFormType() As String
            Get
                Return _ListFormType
            End Get
            Set(ByVal value As String)
                _ListFormType = value
            End Set
        End Property

        Public Property FillValueType()
            Get
                Return _FillValueType
            End Get
            Set(ByVal value As Object)
                Me._FillValueType = value
            End Set
        End Property

    End Class

End Namespace